home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / MaxWindowHi (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-01-24  |  997b  |  50 lines
  1.  
  2. ON BREAK GOSUB Ender
  3. BREAK ON
  4.   SCREEN 2,640,400,2,4
  5.   MakeBorderlessWindow 2,0,0,639,399,2
  6.  
  7.   COLOR 3,0
  8.  
  9.   '** CLS won't clear full screen'
  10.   '** Use LINE command (as below) instead. 
  11.   'LINE(0,0)-(640,400),0,bf
  12.  
  13.   FOR I=1 TO 8:PRINT "1234567890";:NEXT
  14.   FOR I=1 TO 50
  15.     LOCATE I,1
  16.     PRINT MID$(STR$(I),2);
  17.   NEXT
  18.   
  19.   COLOR 2
  20.   LOCATE 20,10
  21.   PRINT "Click to end
  22.   XY=MOUSE(0)
  23.   WHILE MOUSE(0)=0:WEND
  24.  
  25. Ender:  
  26.   WINDOW CLOSE 2
  27.   SCREEN CLOSE 2
  28.  END
  29.  
  30. SUB MakeBorderlessWindow (WindowNum%,X1%,Y1%,X2%,Y2%,ScreenNum%) STATIC
  31.  LIBRARY "layers.library"
  32.   X2%=X2%-8
  33.   Y2%=Y2%-13
  34.   WINDOW WindowNum%,,(X1%,Y1%)-(X2%,Y2%),16,ScreenNum%
  35.   bWindow&    =   WINDOW(7)
  36.   BorderTop%  =   PEEK(bWindow&+55)
  37.   Layer&      =   PEEKL(WINDOW(8))
  38.   LayerInfo&  =   PEEKL(Layer&+68)
  39.   
  40.   MoveLayer& LayerInfo&, Layer&, -4, -BorderTop%
  41.   SizeLayer& LayerInfo&, Layer&,8, BorderTop%+2
  42.  
  43.   POKEW bWindow&+112, PEEKW(bWindow&+8)
  44.   POKEW bWindow&+114, PEEKW(bWindow&+10)
  45.   FOR I=54 TO 57: POKE bWindow&+I,0: NEXT
  46.  LIBRARY CLOSE
  47. END SUB
  48.     
  49.  
  50.